-- card: 14752 from stack: in.0
-- bmap block id: 15096
-- flags: 0000
-- background id: 15491
-- name: 
----- HyperTalk script -----
on goPrev
  lock screen
  set cursor to none
  go cd "AppleTree"
  show cd picture
  unlock screen with dissolve
  hide cd fld "text1" of cd id 14752
  showText
end goPrev


on Action
  lock screen
  set cursor to none
  hide cd fld 1
  go next
  unlock screen with dissolve
end Action

-- make the planet circle Newton's head
on PlanetCircle
  set cursor to none
  repeat 3
    set the loc of btn "planet" to 321,86
    show btn "planet"
    wait 5
    set the loc of btn "planet" to 334,99
    wait 5
    set the loc of btn "planet" to 327,117
    wait 5
    set the loc of btn "planet" to 305,124
    wait 5
    set the loc of btn "planet" to 275,125
    wait 5
    set the loc of btn "planet" to 243,128
    wait 5
    set the loc of btn "planet" to 212,127
    wait 5
    set the loc of btn "planet" to 183,120
    wait 5
    set the loc of btn "planet" to 155,110
    wait 5
    set the loc of btn "planet" to 145,90
    wait 5
    hide btn "planet"
    wait 20
  end repeat
end PlanetCircle


-- part 1 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=132 top=77 right=103 bottom=159
-- title width / last selected line: 0
-- icon id / first selected line: 21183 / 21183
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: planet


-- part 3 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=16 top=34 right=202 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 14
-- style flags: 0
-- line height: 16
-- part name: text1


-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=474 top=195 right=224 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 24471 / 24471
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MapBtn
----- HyperTalk script -----
-- Go to the Map stack.  "CameFrom" holds the name of this cd
-- so the Map can hilite the cd the user came from.

on mouseUp
  global DisSpeed, CameFrom, MapMode
  set the hilite of me to true
  lock Screen
  set the hilite of me to false
  put "Introduction to" into CameFrom
  put last char of the icon of bg btn "section" into sectionNum
  if sectionNum > 3 then put 2 into sectionNum
  put "section" && sectionNum & ":" into SubCd
  visual DisSpeed
  if MapMode is "graph" then
    go to cd SubCd of stack "•HC 2.0-3"
    HiliteMap
  else
    go to cd "indexmap" of stack "•HC 2.0-3"
  end if
  unlock screen with DisSpeed
end mouseUp



-- part contents for card part 3
----- text -----
And apples falling on people who are reading causes me to think of Isaac Newton, the discoverer of the laws of gravity...